Json是一种轻量级传输数据格式，广泛应用互联网和各应用中。json主要採用键值对来表示数据项。多个数据项之间用逗号分隔，也能够用于数组。以下注重介绍一下在delphi中使用json，在delphi中使用json经常使用superobject单元文件。该文件能够在网上下载，最初接触json是在2011年，好久没用这不刚好有项目要用到又折腾了好久，以下做了一个简单的Demo，方便以后忘了能随时查看。详细的json使用能够參看万一老师的博客，记录的非常详细，以下的demo主要是将数据库记录转换为json格式，然后进行解析。详细源代码例如以下。

新建一个delphi应用程序，在窗口上放置table组件，连接数据DBDEMOS。连接表customer.db，active设置为true。

详细文件例如以下：

delphiproject文件例如以下

program Project1;

uses  Forms,  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin  Application.Initialize;  Application.CreateForm(TForm1, Form1);  Application.Run;end.

单元文件例如以下：

unit Unit1;

interface

uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables;

type  TForm1 = class(TForm)    mmo1: TMemo;    tbl1: TTable;    ds1: TDataSource;    btn1: TButton;    btn2: TButton;    btn3: TButton;    procedure btn1Click(Sender: TObject);    procedure btn2Click(Sender: TObject);    procedure btn3Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;

var  Form1: TForm1;

implementation

{$R *.dfm}

uses  superobject;

procedure TForm1.btn1Click(Sender: TObject);var  jo,jt:ISuperObject;begin  jo:=SO();  jt:=SO();  jo.S['xm']:='张三';  jo.I['age']:=25;  jo.S['sex']:='男';  jt.O['person']:=jo;  ShowMessage(jt.AsString);  ShowMessage(jt.O['person'].S['xm']);end;

procedure TForm1.btn2Click(Sender: TObject);var  i:Integer;  jfields,jitems,jo:ISuperObject;begin  mmo1.Clear;  jitems:=SA([]);  jo:=SO();  with tbl1 do  begin    First;    while not eof do    begin

      jfields:=SO();      for i:=0 to FieldCount-1 do      begin        if Fields[i].DataType=ftDateTime then         jfields.S[Fields[i].FieldName]:=FormatDateTime('yyyy-mm-dd hh:mm:ss',Fields[i].AsDateTime)        else         jfields.S[Fields[i].FieldName]:=Fields[i].AsString;      end;      jitems.AsArray.Add(jfields);      Next;    end;  end;  jo.O['records']:=jitems;  mmo1.Lines.Add(jo.AsString);end;

procedure TForm1.btn3Click(Sender: TObject);var  jo,m:ISuperobject;  i,j:Integer;  tt:TSuperArray;  s:string;  lst:TStringList;begin  if mmo1.Text'' then  begin    lst:=TStringList.Create;    jo:=so(mmo1.Text);    tt:=jo.O['records'].AsArray;    for i:=0 to tt.Length-1 do    begin      s:='';      for j:=0 to tbl1.FieldCount-1 do      begin       if s='' then        s:=tt.O[i].S[tbl1.Fields[j].FieldName]       else        s:=s+' '+tt.O[i].S[tbl1.Fields[j].FieldName]      end;      lst.Add(s);    end;    ShowMessage(lst.Text) ;    lst.Free;  end;end;

end.

dfm文件例如以下：

object Form1: TForm1  Left = 312  Top = 70  Width = 410  Height = 382  Caption = 'json读写'  Color = clBtnFace  Font.Charset = DEFAULT_CHARSET  Font.Color = clWindowText  Font.Height = -11  Font.Name = 'MS Sans Serif'  Font.Style = []  OldCreateOrder = False  PixelsPerInch = 96  TextHeight = 13  object mmo1: TMemo    Left = 0    Top = 0    Width = 394    Height = 249    Align = alTop    TabOrder = 0  end  object btn1: TButton    Left = 23    Top = 264    Width = 75    Height = 25    Caption = '简单读写'    TabOrder = 1    OnClick = btn1Click  end  object btn2: TButton    Left = 121    Top = 264    Width = 105    Height = 25    Caption = '读数据库记录'    TabOrder = 2    OnClick = btn2Click  end  object btn3: TButton    Left = 253    Top = 263    Width = 75    Height = 25    Caption = '解析json'    TabOrder = 3    OnClick = btn3Click  end  object tbl1: TTable    Active = True    DatabaseName = 'DBDEMOS'    TableName = 'customer.db'    Left = 288    Top = 152  end  object ds1: TDataSource    DataSet = tbl1    Left = 104    Top = 176  endend

当中有些版本号superobject的hash方法有编译指令，我使用时报错，将其去掉改为例如以下:

class function TSuperAvlEntry.Hash(const k: SOString): Cardinal;var  h: cardinal;  i: Integer;begin  h := 0;  for i := 1 to Length(k) do    h := h*129 + ord(k[i]) + $9e370001;  Result := h;end;

程序执行结果例如以下：

点击简单读写

读数据库记录

解析json

superobject单元还提供了很多方法，在此不一一列举使用，以后使用中再慢慢总结。